(library (sets)
  (export make-empty-set
          set-insert-multiple
          set-empty?)
  (import
   (except (rnrs base)
           let-values
           map
           error
           vector-map)
   (only (guile)
         lambda* λ)
   (pfds sets))

  (define make-empty-set
    (λ (less?)
      (make-set less?)))

  (define set-insert-multiple
    (λ (myset items)
      (cond
       [(null? items) myset]
       [else
        (set-insert-multiple (set-insert myset (car items))
                             (cdr items))])))

  (define set-empty?
    (λ (set)
      (= (set-size set) 0))))
